Full source code website bán hàng thương mại điện tử gần giống shopee
469.086 lượt xem;
1 #!c:\perl\bin\perl.exe
2 ##
3 ## printenv -- demo CGI program which just prints its environment
4 ##
5
6
7 print "Content-type: text/html\n\n";
8 print "<pre>*** Please define header of file *.pl or *.cgi with<b>
9 #!c:\\perl\\bin\\perl.exe</b>\n\n\n";
10 foreach $var (sort(keys(%ENV))) {
11 $val = $ENV{$var};
12 $val =~ s|\n|\\n|g;
13 $val =~ s|"|\\"|g;
14 print "${var}=\"${val}\"\n";
15 }
2 ##
3 ## printenv -- demo CGI program which just prints its environment
4 ##
5
6
7 print "Content-type: text/html\n\n";
8 print "<pre>*** Please define header of file *.pl or *.cgi with<b>
9 #!c:\\perl\\bin\\perl.exe</b>\n\n\n";
10 foreach $var (sort(keys(%ENV))) {
11 $val = $ENV{$var};
12 $val =~ s|\n|\\n|g;
13 $val =~ s|"|\\"|g;
14 print "${var}=\"${val}\"\n";
15 }
